(ccl-dump-call): Fix printing the subroutine name.

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index e9e46bb0c6cc001b03f07f58edd8e83601d84da4..e55f1fbcf36be0c2dd09edaa019d0fe8d2152cea 100644 (file)
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -1120,7 +1120,8 @@
   (insert (format "write r%d (%d remaining)\n" rrr cc)))
 
 (defun ccl-dump-call (ignore cc)
-  (insert (format "call subroutine #%d\n" cc)))
+  (let ((subroutine (car (ccl-get-next-code))))
+    (insert (format "call subroutine `%s'\n" subroutine))))
 
 (defun ccl-dump-write-const-string (rrr cc)
   (if (= rrr 0)